10 DV=PEEK(186):IFDV<8THENDV=8
30 PRINT"[147]":POKE53272,19:AD=49152:POKE53280,0:POKE53281,0
40 SYS57812"CHN FONT",DV,0:POKE780,0:POKE781,0:POKE782,8:SYS65493
45 GOSUB55:GOTO2300
53 :
54 REM --- SETUP PROGRAM ---
55 DIM LT(26),GR(12),UW$(220)
60 X=RND(-TI):HQ=0:ML=39777
70 PT$=CHR$(255)+CHR$(169):REM POINTER
100 GS=1050:GR(1)=1227:GR(2)=1235
105 GR(3)=1243:GR(4)=1251:GR(5)=1259
110 LM=1827:RETURN
148 :
149 REM --- GAME SCREEN ---
150 PRINT"[147] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
155 FORX=1TO8:PRINT"[151] [186] [180][180][180][180]  [186] [180][180][180][180]  [186] [180][180][180][180]  [186] [180][180][180][180]  [186] [180][180][180][180]":NEXT
160 PRINT" [192][192][192][192][192][192][156][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218][192][192][192][192][192][192]"
165 GOSUB275:SYSAD+69
185 SYSAD+18,112:SYSAD+18,120:SYSAD+18,128:SYSAD+18,136:SYSAD+18,144
195 GOTO3100
198 :
199 REM ---- PRINT CUSTOM-LETTER ----
200 POKEPK,LT+64:POKEPK+1,LT+128:POKEPK+40,LT+96:POKEPK+41,LT+160
210 CL=55296+(PK-1024)
220 POKECL,CO:POKECL+1,CO:POKECL+40,CO:POKECL+41,CO
225 RETURN
228 :
229 REM --- CLEAR CUSTOM LETTER ---
230 POKEPK,32:POKEPK+1,32:POKEPK+40,32:POKEPK+41,32
240 RETURN
248 :
249 REM --- PRINT GRID-LETTER ---
250 CL=55296+(PK-1024)
255 POKEPK,LT:POKECL,2+NM
260 RETURN
273 :
274 REM --- CLEAR HOME WORD ---
275 SYSAD+24,26,0,"[151][161][162][161][162][161][162][161][162]":SYSAD+24,26,1,"[163][164][163][164][163][164][163][164]"
280 SYSAD+24,2,1,"                  "
290 RETURN
348 :
349 REM --- QUIT ---
350 PH$="   [158][209][213][201][212]![159]  [193]RE YOU SURE?      Y[154]/N":GOSUB410
355 POKE 781,22:SYS 59903:POKE 781,23:SYS 59903
360 GETA$:IFA$=""THEN360
365 IFA$<>"Y"THEN RETURN
390 PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8
394 GOTO40000
398 :
399 REM --- PRINT / CENTER ---
400 POKE781,22:SYS59903:SYSAD+27,22,PH$:RETURN
405 POKE781,23:SYS59903:SYSAD+27,23,PH$:RETURN
410 POKE781,24:SYS59903:SYSAD+27,24,PH$:RETURN
419 :
420 SYSAD+24,11,22,"F1[154] -[196]ELETE [204]ETTER      "
430 SYSAD+24,4,24,"   F3[154] -[200][197][204][208]!         F7[154] -[209]UIT   "
440 RETURN
888 :
889 REM --- OOPS ---
890 FOR X=0TO1:POKE781,23+X:SYS 59903:NEXT
895 LT=121:CO=7:PK=WC-3:GOSUB250:LT=111:PK=PK+1:GOSUB250:RETURN
899 :
900 RR=0:PH$="OOPS":FORX=1TO4:CO=1+X
910 P$=MID$(PH$,X,1):LT=ASC(P$):GOSUB200:PK=PK+2:NEXT
914 :
915 FORY=1TO4:SYSAD+24,12,23,"[212]HAT'S NOT EXCEPTED!"
917 FORX=1TO100:NEXTX
920 SYSAD+24,12,23,"[154][212]HAT'S NOT EXCEPTED!"
922 FORX=1TO100:NEXTX:NEXTY:SYSAD+27,24,"[212]RY [193]GAIN...":FORX=1TO500:NEXTX
931 RR=1:IF GM=1THENRETURN
932 FORX=3TO0STEP-1:PK=WC+X:LT=116:CO=11:GOSUB250:NEXT:PK=WC-2:LT=122
933 GOSUB250:PK=PK-1:LT=32:GOSUB250:XX=0:GOSUB275:WG=WG-1:RETURN
1098 :
1099 REM --- MISSING LINK ---
1100 PRINT"[147]";:WD$(1)="":WD$(2)="":W(1)=1024:W(2)=1655:CO=10:LM=1650:WG=1
1105 GR(2)=1267:GR(3)=1387:GR(4)=1507:GR(6)=1280:GR(7)=1400
1107 GR(8)=1520:GR(10)=1293:GR(11)=1413:GR(12)=1533
1110 GR(1)=1147:GR(5)=1160:GR(9)=1173
1120 GOSUB1150
1130 FORX=1TO2:SYS ML+9,4:WD$(X)=W$
1132 FORY=0TO3:LT=ASC(MID$(W$,(Y+1),1))
1135 PK=W(X)+(Y*2):GOSUB200
1140 NEXTY:NEXTX:GR=1:WD$=WD$(1):UW$(1)=WD$:GOTO1200
1149 :
1150 FORX=1TO4:PRINT"[151]   [161][162][161][162][161][162][161][162][160][160][160][160][160][161][162][161][162][161][162][161][162][160][160][160][160][160][161][162][161][162][161][162][161][162]"
1155 PRINT"[151]   [163][164][163][164][163][164][163][164][160][160][160][160][160][163][164][163][164][163][164][163][164][160][160][160][160][160][163][164][163][164][163][164][163][164]":PRINT
1160 NEXTX:PRINTTAB(7)"?[220][221][146]";TAB(27)"[158]_<="
1165 PRINT"   [154][192][192][192][192][156][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218][154][192][192][192][192]"
1170 PRINT"[152]         [158]\]^_[146]":SYSAD+24,16,18,"[158]>?[220][221][255][223][188][189][146]"
1175 RETURN
1199 :
1200 GOSUB420:PK=GR(GR)+XX:LT=97:CO=7:GOSUB210
1210 GET LT$:IF LT$=""THEN1210
1220 IF LT$="[134]"THEN RL$="HOW.LINK":GOSUB3050:GOTO1210:REM ...F3
1225 IF LT$="[133]"THEN CO=11:GOSUB2100:REM ...F1
1230 IF LT$="[136]"THEN GOTO2700:REM ...F7
1235 IF LT$<"A"ORLT$>"Z"THEN1210
1240 GS$=GS$+LT$:CO=5:LT=ASC(LT$):GOSUB200:XX=XX+2
1250 IF XX=8THEN PR=23:GOSUB1280:GOSUB2112:GOSUB1265
1255 GOTO1200
1260 WG$=STR$(WG):SYSAD+24,4,16,WG$:RETURN
1265 GOSUB1300:GOSUB1260:IFA$<>"[133]"THEN GS$=""
1270 RETURN
1279 :
1280 FOR X=0TO3:POKE781,21+X:SYS59903:NEXT:REM ... ERASE LAST 4 LINES
1285 RETURN
1299 :
1300 IFA$="[133]"THENRETURN:REM --- F1
1305 IF MK<1 THEN GOSUB 1280:PK=1946:GOSUB900:IF RR=1THEN RR=0:GOTO1455
1315 GOSUB1280:GOSUB1350:IFC<>3THENGOTO1450
1317 IFC=3THEN RR=0:GOSUB2920:IF RR=1THEN RR=0:GOSUB1455:WG=WG-1:RETURN
1320 PH$="[217] O U    [215][160][201][160][206][160]!"
1325 WW$=WD$:WD$=WD$(2):GOSUB1350:IFC=3THENSYSAD+27,21,PH$:GOTO2600
1330 WD$=WW$:GS$="":GOTO1410
1349 :
1350 C=0:FORJ=1TO4:IFMID$(GS$,J,1)=MID$(WD$,J,1)THENC=C+1
1355 NEXT:RETURN
1409 :
1410 GR=GR+1:IFGR>12 THEN GOTO2600
1420 XX=0:GOSUB1280:RETURN
1449 :
1450 GOSUB2930
1455 LT=91:CO=11:FORX=0TO6STEP2:PK=GR(GR)+X:GOSUB200:NEXT
1460 REM:GR=GR-1:IF GR<1THEN GR=1
1465 GOSUB1280:XX=0:WG=WG-1:RETURN
1897 END
1898 :
1899 REM --- LOAD CONCATENATION ---
1900 PRINT"[147]":PH$="CONCATENATION":PK=1745:SYSAD+24,5,15,"[159][204]OADING:":CO=3
1910 FORX=1TOLEN(PH$):LT=ASC(MID$(PH$,X,1)):GOSUB200
1920 PK=PK+3:CO=CO+1:IF CO=16THEN CO=3
1930 NEXT:PH$="[150][194]E RIGHT BACK ...":GOSUB400
1940 DV=PEEK(186):IFDV<8THENDV=8
1950 Q$=CHR$(34):PRINT"[144]LOAD"Q$"CONCATENATION"Q$","DV
1960 PRINT"RUN"
1970 POKE631,13:POKE632,13:POKE198,2
1980 NEW
2098 :
2099 REM --- DELETE CHARACTER ---
2100 IFPK=GR(GR)OR PK=1050 THENRETURN
2102 POKEPK+80,32:POKEPK+81,32
2103 LT=91:CO=11:GOSUB200:PK=PK-2
2105 LT=91:CO=7:GOSUB 200:XX=XX-2:IFXX<0THENXX=0:RETURN
2107 GS$=LEFT$(GS$,(LEN(GS$)-1)):RETURN
2108 :
2109 REM --- 4TH LETTER PAUSE ---
2110 POKE781,PR:SYS59903
2112 POKE214,PR:PRINT:PRINT"      F1[154] -DELETE LETTER     [210][197][212][213][210][206][154]    "
2115 GETA$:IFA$=""THEN2115
2120 IFA$="[133]"THEN GOTO2105:REM --- F1
2125 IFA$<>CHR$(13)THEN2115
2135 MK=0:SYS ML,GS$:IFW$<>GS$THEN MK=0:GOTO2175
2140 MK=1:FORX=1TO4:LC=ASC(MID$(GS$,X,1)):POKE56063+(LC-65),7:NEXT:REM ALPHABET
2160 :
2175 WG=WG+1:RETURN
2188 :
2189 REM --- PROMPTS ---
2190 POKE214,22:PRINT:PRINT"    F1[154] -DELETE LETTER     F3[154] -HELP  "
2192 PRINT"   F5[154] -CHANGE SCREENS      F7[154] -[209]UIT   "
2195 RETURN
2298 :
2299 REM --- MAIN SCREEN ---
2300 PRINT"[147]";:
2310 PRINTCHR$(159)"[188][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][188]";
2315 FORI=1TO19
2320 PRINT"[191]"CHR$(31)"[219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219]"CHR$(159)"[191]";
2325 NEXTI:PRINT"[188][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][188]";
2327 PRINT"[146][150][220][202]ATHIAH[208]RODUCTIONS[208]RESENTS[220][154]"
2330 SYSAD+69:POKE214,9:PRINT
2332 PRINTTAB(6)"[156][188][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][188]";:FORX=1TO2
2334 PRINTSPC(12)"[190]"SPC(26)"[190]";:NEXT
2336 PRINTSPC(12)"[188][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][180][188]"
2340 SYSAD+15,7,32,11,12,32,0:POKE214,10:PRINT
2345 PRINTTAB(34)" ":FORX=1TO2
2350 PRINTSPC(34)" ":NEXT
2355 PRINTSPC(7)"                            "
2375 POKE214,20:PRINT:FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
2399 :
2400 POKE214,21:PRINT:PRINT"F1[154] - [211]ELECT [199]AME TO [208]LAY ..."
2405 PRINT"F3[154] - [201]NSTRUCTIONS   F7[154] - [209]UIT [199]AME"
2410 C=2:Y=0:IFQ5=0THENQ5=1:SYSAD+18,208
2415 GETA$:POKE646,C+Y:GOSUB2494
2420 IFA$="[133]"THENPOKE646,7:GOSUB2494:SYSAD+18,224:GOTO2450:REM PLAY
2425 IFA$="[134]"THENRL$="HOW.MENU":GOSUB3050:GOTO2415:REM RULES
2430 IFA$="[135]"THENGOSUB500:GOTO2415:REM WORDS
2435 IFA$="[136]"THENGOSUB350:SYSAD+21,208:GOTO2415:REM QUIT
2437 Y=Y+1:IFY=12THENY=2
2440 GOTO2415
2448 :
2449 REM --- WHICH GAME ---
2450 FORX=0TO2:POKE781,22+X:SYS59903:NEXT
2453 SYSAD+24,3,22,"[198]1[154] [205]ISSING LINK    [198]3[154] [195]HAIN [204]ETTERS"
2454 SYSAD+24,2,24,"[198]5[154] [195]ONCATENATION       [198]7[154] [198]ORGET IT."
2455 GM=0:SYSAD+45,"[133][134][135][136]":IFF%=1THEN GM=1:GOTO1100:REM ... LINK
2460 IFF%=3THEN1900:REM ... CONC
2462 IFF%=4THEN FORX=0TO3:POKE781,21+X:SYS59903:NEXT:GOTO2400
2465 GM=2:C(1)=159:C(2)=156:C(3)=30:C(4)=31:FORX=0TO3:POKE781,21+X:SYS59903
2466 NEXT:SYSAD+27,24,"[200]OW MANY [208]LAYERS?    (2 TO 4)":SYSAD+45,"234":PL=F%+1
2468 SYSAD+27,22,"[156][208]LAYER'S [158][206][193][205][197][156]:"
2469 POKE781,24:SYS59903
2470 FORX=1TOPL:POKE214,22:PRINT:PRINTTAB(8)"                        "
2475 POKE214,23:PRINT:PRINTTAB(15)"[158]#"X"[157]:  ";:
2480 SYSAD+66,22,6,10:IFW$=""THENGOTO2480
2485 NM$(X)=CHR$(C(X))+W$
2490 NEXT:GOTO150
2493 :
2494 SYSAD+24,7,11,"C[195]H[200]A[193]I[201]N[206]L[204]E[197]T[212]T[212]E[197]R[210]S[211]":REM...UPPER
2495 SYSAD+24,7,12,"#[163]([168]![161])[169].[174],[172]%[165]4[180]4[180]%[165]2[178]3[179][146]":REM...LOWER
2497 RETURN
2498 :
2499 REM --- RE-RUN ---
2500 GOSUB60:AD=49152
2510 GOTO2300
2598 :
2599 REM ---END OF GAME ---
2600 IF GM=2THEN2608
2602 IFWG=13THEN YW=1
2604 IFWG<13 AND WG>1THEN YW=2
2605 IFGS$=""THEN YW=0
2606 GOTO 2620
2608 RT=0:POKE781,23:SYS59903:POKE781,24:SYS59903
2620 ON (YW+1) GOTO 2650,2625,2630
2625 PH$="[206]OT BAD!  [199]IVE IT ANOTHER TRY.":GOSUB410:GOTO2645
2630 PH$="CONGRATULATIONS":PK=1949:LN=15:CO=1:FORX=1TOLN
2635 P$=MID$(PH$,X,1):LT=ASC(P$)
2640 GOSUB200:PK=PK+2:NEXTX
2645 FORI=0TO2000:NEXT
2650 TP=TP+WG:GP=GP+1:AV=TP/GP:AV$=LEFT$(STR$(AV),6)
2655 FORI=21TO24:POKE 781,I:SYS 59903:NEXT
2660 POKE214,20:PRINT:PRINTTAB(7)"[159][211]CORE FOR THIS GAME: "WG
2665 PRINTTAB(11)"[159][210]UNNING AVERAGE: "AV$
2670 IFGM=2THEN IFYW>0THEN PRINT"[154] [212]HE [215][201][206][206][197][210] IS ";NM$(NM)"!"TAB(26);:GOTO2672
2671 PRINTTAB(13);
2672 PRINT"[208]RESS ANY KEY"
2675 GETA$:IFA$=""THEN2675
2677 XX=0:GS$="":GOTO 2500
2698 :
2699 REM --- QUIT GAME
2700 PH$=CL$:GOSUB400:GOSUB405:GOSUB410:POKE214,23:PRINT
2705 IF GM=2 THEN 2750
2710 PH$="   [158][209][213][201][212]![159]  [193]RE YOU SURE?      Y[154]/N":GOSUB410
2715 GETA$:IFA$=""THEN2715
2720 IFA$<>"Y"THEN GOSUB420:GOTO1210
2722 PH$="[154]    [210]EPLAY [211][193][205][197] [215]ORDS?      Y[154]/N[154]    ":GOSUB410
2724 GETA$:IFA$=""THEN2724
2726 IFA$="N"THEN2745
2730 IFA$<>"Y"THEN2724
2735 PRINT"[147]":GOSUB1150:CO=10:FOR X=1TO2
2737 FORY=0TO3:LT=ASC(MID$(WD$(X),(Y+1),1))
2740 PK=W(X)+(Y*2):GOSUB200:NEXT:NEXT:GR=1:WD$=WD$(1):UW$(1)=WD$
2742 GOSUB1260:FORX=1TOWG:UW$(X)="":NEXT:WG=1:GOTO1200
2745 GS$="":GOTO2600
2749 REM --- GAME 2 /PLAYER-GAME
2750 PH$="QUIT":PK=1945:CO=7:FORX=1TO4:P$=MID$(PH$,X,1):LT=ASC(P$)
2755 GOSUB200:PK=PK+2:NEXT:SYSAD+24,13,23,"[153]F1 <[208]LAYER    [153]F3 <[199]AME"
2760 SYSAD+24,15,24,"[153]F7 <[203]EEP PLAYING"
2765 GETA$:IFA$=""THEN2765
2770 IFA$="[134]"THEN YW=0:GOTO2600:REM --- F3
2775 IFA$="[136]"THEN RETURN:REM --- F7
2780 IFA$<>"[133]"THEN 2765:REM --- NOT F1
2785 NM$(NM)="":NM=NM+1:IFNM>PLTHENNM=1:GOTO2785
2787 RETURN
2898 :
2899 REM --- CMPARE W/ LIST, CHAIN ---
2900 UW=0:IFWG=1THENWD$=GS$:GOTO2960
2905 C=0:FORJ=1TO4:IFMID$(GS$,J,1)=MID$(WD$,J,1)THENC=C+1
2910 NEXT:IFC=3THEN GOTO2920
2915 GOTO2930
2919 :
2920 FORGW=1TOWG:IFGS$=UW$(GW)THEN UW=1
2925 NEXT:IFUW=1THEN RR=1:UW=0:GOTO2945
2927 WD$=GS$:GOTO2960
2929 :
2930 IF GM=2THEN CO=1:LT=106:PK=PK-6:GOSUB250:LT=103:PK=PK+1:GOSUB250
2935 FORX=1TO4:SYSAD+27,23,"[196]OES [206][207][212] [198][201][212] THE [195][200][193][201][206]."
2936 FORY=1TO80:NEXT:SYSAD+27,23,"[196]OES [206][207][212] [198][201][212] THE [195][200][193][201][206]."
2937 FORY=1TO80:NEXT:NEXT:SYSAD+27,24,"[159][212]RY AGAIN."
2940 FOR X=1TO1000:NEXT:CC=1:RETURN
2944 :
2945 IFGM=2THEN CO=1:LT=121:PK=PK-6:GOSUB250:LT=111:PK=PK+1:GOSUB250
2950 FORX=1TO4:SYSAD+27,23,">> [193][204][210][197][193][196][217] [213][211][197][196] <<"
2951 FORY=1TO80:NEXT:SYSAD+27,23,">> [193][204][210][197][193][196][217] [213][211][197][196] <<"
2952 FORY=1TO80:NEXT:NEXT:SYSAD+27,24,"[159][212]RY AGAIN."
2955 FOR X=1TO1000:NEXT:CC=1:RETURN
2959 :
2960 IFGM=2THEN CO=1:LT=119:PK=PK-6:GOSUB250:LT=110:PK=PK+1:GOSUB250
2965 UW$(WG)=GS$:CC=2:RETURN
2968 :
2969 REM...CHAIN:
2970 GOSUB2900:GOSUB275
2975 SYSAD+18,104+(S*8)
2980 IF CC=1 THENGS$="":GOSUB932:GOTO3110
2985 IF CC=2 THEN3225
3048 :                       
3049 REM ---RULES DISPLAY ---
3050 SYS AD+18,208:PRINT "[147][159]":POKE 53272,23
3055 SYSAD+51,RL$,DV
3060 PRINT"[147]":POKE53272,19:SYSAD+21,208
3065 RETURN
3098 :
3099 REM --- CHAIN LETTERS ---
3100 NM=1:XX=0:S=1:GR=1:WC=GR(GR):WG=1:GOSUB3170:
3105 SYSAD+24,2,1,NM$(NM)+"'S TURN"
3107 W$=STR$(WG):SYSAD+24,35,1,""+W$:SYSAD+24,36,2,"[152]?[220][221]"
3108 S$=RIGHT$(STR$(S),1)
3109 SYSAD+24,19,3,"[146][152][176][177][178][179]"+S$
3110 GOSUB2190
3115 PK=1050+XX:CO=7:GOSUB210
3120 GETLT$:IFLT$=""THEN3120
3122 IFLT$="[136]"THENRR=1:GOSUB2700:GOSUB2190:GOTO3400:REM --- F7
3135 IFLT$="[134]"THEN RL$="HOW.CHN":GOSUB3050:GOTO3120:REM --- F3
3137 IFLT$="[133]"THENGOSUB2100:REM --- F1
3140 IFLT$="[135]"THENPOKEPK+80,32:POKEPK+81,32:GOSUB3300:GOTO3105:REM --- F5
3145 IFLT$<"A"ORLT$>"Z"THEN3120
3150 GS$=GS$+LT$
3155 CO=13:LT=ASC(LT$):POKEPK+80,32:POKEPK+81,32
3160 GOSUB200:XX=XX+2:IFXX=8THENPR=23:GOSUB2110:IFA$<>"[133]"THEN3200
3165 GOTO3110
3169 :
3170 WD$="":SYSML+9,4:WD$=W$:PRINT" * "WD$
3175 WC=WC+80:UW$(WG)=WD$:RETURN
3198 :
3199 REM --- COPY WORD ---
3200 XX=0:IFWC>LM THENGOSUB3250
3205 FORJ=0TO6 STEP2
3207 LT=PEEK(GS+J)-64:PK=WC+(J/2)
3210 GOSUB250:NEXTJ
3215 IFMK=1THENPOKE781,23:SYS59903:POKE781,24:SYS59903:GOTO2970
3219 :
3220 GOSUB890:PK=1946:GOSUB900:GOSUB275:GS$="":GOTO3105
3224 :
3225 FORX=1TO4:LC=ASC(MID$(GS$,X,1))
3230 POKE56143+(LC-65),7:REM HIGHLIGHT ALPHABET
3235 NEXT:GOSUB275:GS$="":REM IFA$="N"THEN3242
3240 WC=WC+80
3241 NM=NM+1:IFNM>PL THEN NM=1
3242 IFNM$(NM)=""THEN 3241
3245 GOTO3400
3249 :
3250 GR=GR+1:IF GR>5THEN GOTO3280
3260 WC=GR(GR):RETURN
3269 :
3270 PP=PK:PK=1050:FORX=1TO4:LT=ASC(MID$(GS$,X,1))
3275 GOSUB200:PK=PK+2:NEXT:PK=PP:RETURN
3279 :
3280 S=S+1:IF S>5 THEN S=5:GOSUB3290:GOTO 2600
3285 GR=1:GOSUB3365:GOSUB3270:SYSAD+18,208+(S*8):GOTO3260
3289 :
3290 POKE781,22:SYS 59903:POKE781,24:SYS59903:FORX=1TO4
3292 SYSAD+24,12,22,"[156][197]ND OF [199]AME ...":FORY=1TO80:NEXT
3294 SYSAD+24,12,22,"[197]ND OF [199]AME ...":FORY=1TO80:NEXT:NEXT:RETURN
3298 :
3299 REM --- CHANGE SCREENS ---
3300 SYSAD+24,24,0,"  [151][161][162][161][162][161][162][161][162]"
3301 SYSAD+24,24,1,"  [151][163][164][163][164][163][164][163][164]"
3302 SYSAD+24,35,1,"   ":REM CLEAR #
3305 SX=S:IFWG>40THEN3315
3307 SYSAD+24,1,1,"[206]O OTHER SCREEN YET!":FORX=1TO2000:NEXT
3310 SYSAD+24,1,1,"                     ":XX=0:RETURN
3314 :
3315 POKE 781,23:SYS 59903:POKE 781,24:SYS59903
3320 POKE214,22:PRINT:PRINTTAB(10)"F1[154] -GO BACK TO GAME"
3325 PRINT" F5[154] -LOWER SCREEN    F7[154] -HIGHER SCREEN"
3327 SYS AD+18,104+(S*8):REM ...SAVE
3330 GETA$:IFA$=""THEN3330
3335 IFA$="[133]"THENGOTO3380:REM ..... F1
3340 IFA$="[135]"THENS=S-1:GOSUB3360:REM F5
3345 IFA$="[136]"THENS=S+1:GOSUB3355:REM F7
3350 GOTO3320
3355 IFS>4THENS=4
3357 IFS*40>=WG+40THENS=S-1
3360 IFS<1THENS=1
3365 SYSAD+21,104+(S*8)
3370 S$=RIGHT$(STR$(S),1):SYSAD+24,19,3,"[152][176][177][178][179]"+S$
3375 RETURN
3380 XX=0:S=SX:SYSAD+21,104+(S*8):REM ..... RESTORE
3385 POKE781,22:SYS 59903:POKE781,24:SYS59903:GOSUB275:RETURN
3399 REM --- TEST LAST NAME FOR GM2
3400 X=0:FORY=1TOPL:IFNM$(Y)<>""THEN X=X+1
3410 NEXT:IF X=1THEN YW=2:GOTO2600
3420 GOTO3105
9998 END
9999 :
10000 PRINT"[147]SCRATCHING CHAIN LETTERS"
10001 D=PEEK(186):N$="0:CHAIN LETTERS":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END